home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / N-O / Old MacDonald FREE.cpt / Old MacD for FREE! ƒ / Old MacD for FREE ! / background_2991.xml < prev    next >
Extensible Markup Language  |  1991-11-01  |  15KB  |  263 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
  3. <background>
  4.     <id>2991</id>
  5.     <filler1>0</filler1>
  6.     <bitmap>BMAP_24815.pbm</bitmap>
  7.     <cantDelete> <false /> </cantDelete>
  8.     <showPict> <true /> </showPict>
  9.     <dontSearch> <false /> </dontSearch>
  10.     <link rel="stylesheet" type="text/css" href="stylesheet_6648.css" />
  11.     <part>
  12.         <id>6</id>
  13.         <type>button</type>
  14.         <visible> <true /> </visible>
  15.         <reserved5> 0 </reserved5>
  16.         <reserved4> 0 </reserved4>
  17.         <reserved3> 0 </reserved3>
  18.         <reserved2> 0 </reserved2>
  19.         <reserved1> 0 </reserved1>
  20.         <enabled> <true /> </enabled>
  21.         <rect>
  22.             <left>233</left>
  23.             <top>319</top>
  24.             <right>260</right>
  25.             <bottom>342</bottom>
  26.         </rect>
  27.         <style>transparent</style>
  28.         <showName> <false /> </showName>
  29.         <highlight> <false /> </highlight>
  30.         <autoHighlight> <true /> </autoHighlight>
  31.         <sharedHighlight> <true /> </sharedHighlight>
  32.         <family>0</family>
  33.         <titleWidth>0</titleWidth>
  34.         <icon>9301</icon>
  35.         <textAlign>center</textAlign>
  36.         <font>Chicago</font>
  37.         <textSize>12</textSize>
  38.         <textStyle>plain</textStyle>
  39.         <name>Left</name>
  40.         <script>on mouseWithinif the visible of card field "Help" = truethenexit mouseWithinelseif the visible of card field "Ordering" = truethenexit mouseWithinelseif the short name of this card is "First"thenHCBalloon "This is the first screen ..."&return&return&¬¨"Do you really want to go to the last card or would you "&¬¨"like to continue on your visit to Old MacDonald's Farm ?",35,31,5elseHCBalloon "Click on this (left) arrow to go to the previous screen.",35,31,5end ifend ifend ifend mouseWithinon mouseUpif the visible of card field "Help" = truethenexit mouseUpelseif the visible of card field "Ordering" = truethenexit mouseUpelseif the short name of this card is "First"then--beep--answer "This is the first screen ..."&return&return&¬¨----"You need to click on the RIGHT button or on "&¬¨--"the words in the middle of the screen "&¬¨--"to continue on your visit to Old MacDonald's Farm !"--exit mouseUp--elsevisual scroll right slowgo to card id 4119 -- "Last"end ifend ifend ifend mouseUp</script>
  41.     </part>
  42.     <part>
  43.         <id>7</id>
  44.         <type>button</type>
  45.         <visible> <true /> </visible>
  46.         <reserved5> 0 </reserved5>
  47.         <reserved4> 0 </reserved4>
  48.         <reserved3> 0 </reserved3>
  49.         <reserved2> 0 </reserved2>
  50.         <reserved1> 0 </reserved1>
  51.         <enabled> <true /> </enabled>
  52.         <rect>
  53.             <left>259</left>
  54.             <top>319</top>
  55.             <right>288</right>
  56.             <bottom>342</bottom>
  57.         </rect>
  58.         <style>transparent</style>
  59.         <showName> <false /> </showName>
  60.         <highlight> <false /> </highlight>
  61.         <autoHighlight> <true /> </autoHighlight>
  62.         <sharedHighlight> <true /> </sharedHighlight>
  63.         <family>0</family>
  64.         <titleWidth>0</titleWidth>
  65.         <icon>27009</icon>
  66.         <textAlign>center</textAlign>
  67.         <font>Chicago</font>
  68.         <textSize>12</textSize>
  69.         <textStyle>plain</textStyle>
  70.         <name>Right</name>
  71.         <script>on mouseWithinif the visible of card field "Help" is true then pass mouseWithinelse HCBalloon "Click on this (right) arrow to go to the next screen."&return&return&¬¨"You will be at the first screen of the module where, "&¬¨"if you want to, you can start your trip to ''Old MacDonald's Farm'' "&¬¨"all over again !"end mousewithinon mouseUpif the visible of card field "Help" is true then pass mouseUpelsevisual scroll left slowgo nextend ifend mouseUp</script>
  72.     </part>
  73.     <part>
  74.         <id>8</id>
  75.         <type>button</type>
  76.         <visible> <true /> </visible>
  77.         <reserved5> 0 </reserved5>
  78.         <reserved4> 0 </reserved4>
  79.         <reserved3> 0 </reserved3>
  80.         <reserved2> 0 </reserved2>
  81.         <reserved1> 0 </reserved1>
  82.         <enabled> <true /> </enabled>
  83.         <rect>
  84.             <left>470</left>
  85.             <top>300</top>
  86.             <right>510</right>
  87.             <bottom>339</bottom>
  88.         </rect>
  89.         <style>shadow</style>
  90.         <showName> <false /> </showName>
  91.         <highlight> <false /> </highlight>
  92.         <autoHighlight> <true /> </autoHighlight>
  93.         <sharedHighlight> <true /> </sharedHighlight>
  94.         <family>0</family>
  95.         <titleWidth>0</titleWidth>
  96.         <icon>30947</icon>
  97.         <textAlign>center</textAlign>
  98.         <font>Chicago</font>
  99.         <textSize>12</textSize>
  100.         <textStyle>plain</textStyle>
  101.         <name>Hannah</name>
  102.         <script>on mouseWithinif the short name of this card is "First"thenif the visible of card field "Help" = "true" then exit mouseWithinif the visible of card field "Help2" is true then exit mouseWithinif the visible of card field "Ordering" = "true" then exit mouseWithinelseHCBalloon "If you were using the complete "&¬¨"''Let's Go to Hannah's House'' series, you would be able to "&¬¨"click here on ''Hannah's face'' to return to the main module."&return&return&¬¨"If you would you like to see a sample of the series, "&¬¨"then click here..."end ifend ifend mouseWithinon mouseUpif the short name of this card is "First"thenif the visible of card field "Help" is true then exit mouseUpif the visible of card field "Help2" is true then exit mouseUpif the visible of card field "Ordering" = "true" then exit mouseUpelseBEEPAnswer "If you were using the complete "&¬¨"''Let's Go to Hannah's House'' series, you would be able to "&¬¨"click on ''Hannah's face'' to return to the main module."&return&return&¬¨"Would you like to see a sample of the series ?" with "Cancel" or "No" or "Yes"if it is "No"thenset the cursor to 10950 -- UnHappy Facewait 1 secondexit mouseUpelseif it is "Cancel" thenset the cursor to 10950 -- UnHappy Facewait 1 secondexit mouseUpelseif it is "Yes"thenset the cursor to 73 -- Happy Faceplay "OK"push this cardvisual dissolve to greyvisual dissolvego to card id 9174 -- "Start Demo"end ifend ifend ifend ifend ifend mouseUp</script>
  103.     </part>
  104.     <part>
  105.         <id>18</id>
  106.         <type>field</type>
  107.         <visible> <true /> </visible>
  108.         <dontWrap> <false /> </dontWrap>
  109.         <dontSearch> <false /> </dontSearch>
  110.         <sharedText> <false /> </sharedText>
  111.         <fixedLineHeight> <true /> </fixedLineHeight>
  112.         <autoTab> <false /> </autoTab>
  113.         <lockText> <true /> </lockText>
  114.         <rect>
  115.             <left>1</left>
  116.             <top>321</top>
  117.             <right>231</right>
  118.             <bottom>339</bottom>
  119.         </rect>
  120.         <style>shadow</style>
  121.         <autoSelect> <false /> </autoSelect>
  122.         <showLines> <false /> </showLines>
  123.         <wideMargins> <false /> </wideMargins>
  124.         <multipleLines> <false /> </multipleLines>
  125.         <reservedFamily> 0 </reservedFamily>
  126.         <titleWidth>0</titleWidth>
  127.         <icon>0</icon>
  128.         <textAlign>left</textAlign>
  129.         <font>Geneva</font>
  130.         <textSize>9</textSize>
  131.         <textStyle>plain</textStyle>
  132.         <textHeight>12</textHeight>
  133.         <name>Hannahs Copyright</name>
  134.         <script>on mouseUpif the visible of card field "Help" = truethenexit mouseUpelseif the visible of card field "Help2" = truethenexit mouseUpelseif the visible of card field "Ordering" = truethenexit mouseUpelseDADend ifend ifend ifend mouseUpon mouseEnter--if the name of this card ‚↠"First"--then--exit mouseEnter--elseif the visible of card field "Help" = truethenexit mouseEnterelseif the visible of card field "Help2" = truethenexit mouseEnterelseif the visible of card field "Ordering" = truethenexit mouseEnterelseLOOKend ifend ifend ifend mouseEnter</script>
  135.     </part>
  136.     <part>
  137.         <id>19</id>
  138.         <type>button</type>
  139.         <visible> <true /> </visible>
  140.         <reserved5> 0 </reserved5>
  141.         <reserved4> 0 </reserved4>
  142.         <reserved3> 0 </reserved3>
  143.         <reserved2> 0 </reserved2>
  144.         <reserved1> 0 </reserved1>
  145.         <enabled> <true /> </enabled>
  146.         <rect>
  147.             <left>433</left>
  148.             <top>301</top>
  149.             <right>468</right>
  150.             <bottom>339</bottom>
  151.         </rect>
  152.         <style>shadow</style>
  153.         <showName> <false /> </showName>
  154.         <highlight> <true /> </highlight>
  155.         <autoHighlight> <true /> </autoHighlight>
  156.         <sharedHighlight> <true /> </sharedHighlight>
  157.         <family>0</family>
  158.         <titleWidth>0</titleWidth>
  159.         <icon>4093</icon>
  160.         <textAlign>center</textAlign>
  161.         <font>Chicago</font>
  162.         <textSize>12</textSize>
  163.         <textStyle>plain</textStyle>
  164.         <name>ON?</name>
  165.         <script>on mouseUpPLAY "Hi"--push this cardvisual zoom out slow to inversevisual zoom out slowgo to cardset cursor to 16show card field id 20wait until the sound is "done"end mouseUp</script>
  166.     </part>
  167.     <part>
  168.         <id>28</id>
  169.         <type>button</type>
  170.         <visible> <true /> </visible>
  171.         <reserved5> 0 </reserved5>
  172.         <reserved4> 0 </reserved4>
  173.         <reserved3> 0 </reserved3>
  174.         <reserved2> 0 </reserved2>
  175.         <reserved1> 0 </reserved1>
  176.         <enabled> <true /> </enabled>
  177.         <rect>
  178.             <left>330</left>
  179.             <top>303</top>
  180.             <right>353</right>
  181.             <bottom>340</bottom>
  182.         </rect>
  183.         <style>shadow</style>
  184.         <showName> <false /> </showName>
  185.         <highlight> <false /> </highlight>
  186.         <autoHighlight> <true /> </autoHighlight>
  187.         <sharedHighlight> <true /> </sharedHighlight>
  188.         <family>0</family>
  189.         <titleWidth>-1</titleWidth>
  190.         <icon>-11384</icon>
  191.         <textAlign>center</textAlign>
  192.         <font>Chicago</font>
  193.         <textSize>12</textSize>
  194.         <textStyle>plain</textStyle>
  195.         <name>Help ON</name>
  196.         <script>on mouseWithinif the visible of card field "Help" = "true"thenexit mouseWithinelseif the visible of card field "Ordering" = "true"thenexit mouseWithinelseHCBalloon "Clicking here turns Balloons ON."&return&return&¬¨"If you are reading this, ''Balloon Help'' "&¬¨"is already ''ON''. "&return&return&¬¨"So, clicking on the button now "&¬¨"won't do anything but ''BEEP'' !",26,5,3end ifend ifend mouseWithinon mouseUpif the visible of card field "Ordering" = "true"thenexit mouseUpelseHCBalloon "query"if the result is "true"thenbeepexit mouseUpelse THERESTend ifend mouseUpon THERESTif the version < 2.1thenNEEDS21exit THEREST--end ifelseif the version ‚â• 2.1thenISOKexit THERESTend ifend ifend THERESTon ISOKif the systemVersion ‚â• 7.00thenset the cursor to 4 -- watchanswer "Your Macintosh is using Operating System version "&the systemVersion&" with ''Balloon Help''."&return&return&¬¨"''Balloon Help'' is now ''ON''."&return&return&¬¨"To see some help balloons, "&¬¨"move your mouse over something that looks interesting "&¬¨"to you ... like a picture or some words ..."set the cursor to 4 -- watchHCBalloon "on"set the cursor to 4 -- watch--end ifelseif the systemVersion < 7.00thenset the cursor to 10950--unHappy Faceanswer "Your Macintosh is using Operating System version "&the systemVersion&" which does not support ''Balloon Help''."¬¨with "Sorry ..."end ifend ifend ISOKon NEEDS21set the cursor to 4 -- watchbeepanswer "You are using HyperCard version "&the version&"." &return&return&¬¨"Please consult the ''READ ME!'' file to "&¬¨"learn how to turn on ''Balloon Help'' with "&¬¨"HyperCard version "&the version&" and System 7."set the cursor to 4 -- watchend NEEDS21</script>
  197.     </part>
  198.     <part>
  199.         <id>29</id>
  200.         <type>button</type>
  201.         <visible> <true /> </visible>
  202.         <reserved5> 0 </reserved5>
  203.         <reserved4> 0 </reserved4>
  204.         <reserved3> 0 </reserved3>
  205.         <reserved2> 0 </reserved2>
  206.         <reserved1> 0 </reserved1>
  207.         <enabled> <true /> </enabled>
  208.         <rect>
  209.             <left>356</left>
  210.             <top>303</top>
  211.             <right>379</right>
  212.             <bottom>340</bottom>
  213.         </rect>
  214.         <style>shadow</style>
  215.         <showName> <false /> </showName>
  216.         <highlight> <false /> </highlight>
  217.         <autoHighlight> <true /> </autoHighlight>
  218.         <sharedHighlight> <true /> </sharedHighlight>
  219.         <family>0</family>
  220.         <titleWidth>0</titleWidth>
  221.         <icon>19679</icon>
  222.         <textAlign>center</textAlign>
  223.         <font>Chicago</font>
  224.         <textSize>12</textSize>
  225.         <textStyle>plain</textStyle>
  226.         <name>Help OFF</name>
  227.         <script>on mouseWithinif the visible of card field "Help" = "true" then exit mouseWithinif the visible of card field "Ordering" = "true" then exit mouseWithinelseHCBalloon "Click here to turn Balloons OFF."&return&return&¬¨"To turn Balloon Help ''ON'' again, click the ''HELP ON'' button.",24,4,3--,27,4,1end ifend mouseWithinon mouseUpif the visible of card field "Help" = "true" then exit mouseUpif the visible of card field "Ordering" = "true" then exit mouseUpelseHCBalloon "query"if the result is "false"thenbeepTHERESTexit mouseUpelse THERESTend ifend mouseUpon THERESTif the version < 2.1thenNEEDS21exit THERESTelseif the version ‚â• 2.1then ISOKexit THERESTend ifend THERESTon ISOKif the systemVersion ‚â• 7.00thenset the cursor to 4 -- watchanswer "Balloon Help is now ''OFF''."&return&return&¬¨"To turn Balloon Help ''ON'', click the ''HELP ON'' button."set the cursor to 4 -- watchHCBalloon "off"set the cursor to 4 -- watchelseif the systemVersion < 7.00thenset the cursor to 10950--unHappy Faceanswer "Your Macintosh is using Operating System version "&the systemVersion&" which does not support ''Balloon Help''."¬¨with "Sorry ..."end ifend ifend ISOKon NEEDS21set the cursor to 4 -- watchbeepanswer "You are using HyperCard version "&the version&"." &return&return&¬¨"Please consult the ''READ ME!'' file to "&¬¨"learn how to turn on ''Balloon Help'' with "&¬¨"HyperCard version "&the version&" and System 7."set the cursor to 4 -- watchend NEEDS21</script>
  228.     </part>
  229.     <part>
  230.         <id>32</id>
  231.         <type>button</type>
  232.         <visible> <true /> </visible>
  233.         <reserved5> 0 </reserved5>
  234.         <reserved4> 0 </reserved4>
  235.         <reserved3> 0 </reserved3>
  236.         <reserved2> 0 </reserved2>
  237.         <reserved1> 0 </reserved1>
  238.         <enabled> <true /> </enabled>
  239.         <rect>
  240.             <left>406</left>
  241.             <top>308</top>
  242.             <right>429</right>
  243.             <bottom>339</bottom>
  244.         </rect>
  245.         <style>shadow</style>
  246.         <showName> <false /> </showName>
  247.         <highlight> <false /> </highlight>
  248.         <autoHighlight> <true /> </autoHighlight>
  249.         <sharedHighlight> <true /> </sharedHighlight>
  250.         <family>0</family>
  251.         <titleWidth>0</titleWidth>
  252.         <icon>21847</icon>
  253.         <textAlign>center</textAlign>
  254.         <font>Chicago</font>
  255.         <textSize>12</textSize>
  256.         <textStyle>plain</textStyle>
  257.         <name>Home</name>
  258.         <script>on mouseWithinif the visible of card field "Help" = "true"thenexit mouseWithinelseHCBalloon "Click here to return to your own ''Home stack''.",0,0end ifend mouseWithinon mouseUpif the visible of card field "Help" = "true"thenexit mouseUpelseanswer "Completing this action will take you back to your own ''Home'' stack "&¬¨"and quit this module."&return&return&¬¨"Are you sure you want to leave ''Old MacD for FREE!'' at this time?" with "Yes" or "NO!"if it is "NO!" then exit MouseUpif it is "Yes"thenset the cursor to 4 -- watchwait until the sound is doneplay "comeback"visual dissolve to greyvisual dissolvego homeend ifend ifend mouseUp</script>
  259.     </part>
  260.     <name></name>
  261.     <script>on ALERTREPEAT 6set the hilite of card button id 35 to truewait 2 ticksset the hilite of card button id 35 to falsewait 2 ticksend REPEATend ALERT</script>
  262. </background>
  263.